home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 32 / Mac Magazin and MacEasy Magazine CD - Issue 32.iso / Grafik & Text / OzTeX3.0 / MetaPost / Docs / figs.mp < prev    next >
Text File  |  1996-08-24  |  406b  |  23 lines
  1. input boxes
  2. beginfig(1);
  3. pair shadowshift; shadowshift=(1,-1)*bp;
  4.  
  5. def drawshadowed(text t) =
  6.   forsuffixes $=t:
  7.     fill bpath$ shifted shadowshift;
  8.     unfill bpath$;
  9.     drawboxed($);
  10.   endfor
  11. enddef;
  12.  
  13. boxit.a(btex \s8A\s+2 \(lh a etex);
  14. circleit.b(btex $e sup {i omega t}$ etex rotated 20);
  15. b.w - a.e = (10,0)*bp;
  16. drawshadowed(a,b);
  17. draw a.e..b.w;
  18.  
  19. draw bbox currentpicture dashed evenly;
  20. endfig;
  21.  
  22. end
  23.